object SQLManagerForm: TSQLManagerForm Left = 216 Top = 165 Width = 712 Height = 594 Caption = 'SQL Manager' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Microsoft Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ManagerPanel: TPanel Left = 0 Top = 0 Width = 704 Height = 567 Align = alClient BevelOuter = bvNone TabOrder = 0 object SplitterH: TSplitter Left = 0 Top = 274 Width = 704 Height = 3 Cursor = crVSplit Align = alTop end object SQLBox: TTntGroupBox Left = 0 Top = 0 Width = 704 Height = 274 Align = alTop Caption = 'SQL' TabOrder = 0 DesignSize = ( 704 274) object HistoryL: TTntLabel Left = 7 Top = 224 Width = 59 Height = 13 Anchors = [akLeft, akBottom] Caption = 'SQL History:' end object SourceDSNL: TTntLabel Left = 7 Top = 250 Width = 49 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Database:' end object SQLMemo: TTntMemo Left = 8 Top = 15 Width = 685 Height = 200 Anchors = [akLeft, akTop, akRight, akBottom] ScrollBars = ssBoth TabOrder = 0 WordWrap = False OnKeyDown = FormKeyDown end object SQLHistory: TTntComboBox Left = 104 Top = 221 Width = 465 Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] DropDownCount = 20 ItemHeight = 13 TabOrder = 1 OnChange = SQLHistoryChange OnKeyDown = FormKeyDown end object ExecButton: TTntButton Left = 573 Top = 220 Width = 120 Height = 23 Anchors = [akRight, akBottom] Caption = 'Execute' TabOrder = 2 OnClick = ExecButtonClick OnKeyDown = FormKeyDown end object SourceDSNLabel: TTntEdit Left = 104 Top = 246 Width = 260 Height = 21 TabStop = False Anchors = [akLeft, akRight, akBottom] Color = clBtnFace MaxLength = 255 ReadOnly = True TabOrder = 6 end object SourceDB: TTntButton Tag = 2 Left = 573 Top = 245 Width = 120 Height = 23 Anchors = [akRight, akBottom] Caption = 'Database...' TabOrder = 5 OnClick = DBButtonClick end object DBDropDown: TTntComboBox Left = 368 Top = 246 Width = 201 Height = 21 Style = csDropDownList Anchors = [akRight, akBottom] ItemHeight = 13 TabOrder = 4 OnChange = DBDropDownChange Items.Strings = ( 'Accounts' 'Anti-Spam' 'GroupWare') end object SourceDSN: TTntEdit Left = 104 Top = 246 Width = 260 Height = 21 Anchors = [akLeft, akRight, akBottom] Color = clBtnFace MaxLength = 255 ReadOnly = True TabOrder = 3 Visible = False end end object ResultGrid: TTntStringGrid Left = 0 Top = 277 Width = 704 Height = 260 Align = alClient ColCount = 1 DefaultColWidth = 100 DefaultRowHeight = 18 FixedCols = 0 RowCount = 1 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goEditing] TabOrder = 1 OnKeyDown = ResultGridKeyDown OnSelectCell = ResultGridSelectCell OnSetEditText = ResultGridSetEditText end object BottomPanel: TPanel Left = 0 Top = 537 Width = 704 Height = 30 Align = alBottom BevelOuter = bvNone TabOrder = 2 object UpdateButton: TTntButton Left = 1 Top = 4 Width = 123 Height = 23 Caption = 'Update' TabOrder = 0 OnClick = UpdateButtonClick end object DeleteButton: TTntButton Left = 129 Top = 4 Width = 123 Height = 23 Caption = 'Delete' TabOrder = 1 OnClick = DeleteButtonClick end object SQLButton: TTntButton Left = 257 Top = 4 Width = 123 Height = 23 Caption = 'SQL...' TabOrder = 2 OnClick = SQLButtonClick end object SaveButton: TTntButton Left = 385 Top = 4 Width = 123 Height = 23 Caption = 'Export...' TabOrder = 3 OnClick = SaveButtonClick end end end object SaveDialog: TSaveDialog DefaultExt = '.csv' Filter = 'CSV File (*.csv)|*.csv' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] Left = 768 Top = 168 end object PopupMenu: TTntPopupMenu Left = 8 Top = 8 object CreateSELECTbasedonthecurrentrow: TMenuItem Tag = 1 Caption = 'Create SELECT statement based on current row' OnClick = CreateSELECTbasedonthecurrentrowClick end object CreateUPDATEstatement: TMenuItem Tag = 2 Caption = 'Create UPDATE statement based on current row' OnClick = CreateSELECTbasedonthecurrentrowClick end object CreateDELETEstatement: TMenuItem Tag = 3 Caption = 'Create DELETE statement based on current row' OnClick = CreateSELECTbasedonthecurrentrowClick end object N1: TMenuItem Caption = '-' end object GroupwareMenu: TMenuItem Caption = 'Groupware' object GetGRPIDfromOwnEmail: TMenuItem Tag = 4 Caption = 'Get Groups from Own_Email' OnClick = CreateSELECTbasedonthecurrentrowClick end object GetEventsfromOwnEmail1: TMenuItem Tag = 5 Caption = 'Get Events from Own_Email' OnClick = CreateSELECTbasedonthecurrentrowClick end object GetContactsfromOwnEmail1: TMenuItem Tag = 6 Caption = 'Get Contacts from Own_Email' OnClick = CreateSELECTbasedonthecurrentrowClick end object GetFoldersfromOwnEmail1: TMenuItem Tag = 7 Caption = 'Get Folders from Own_Email' OnClick = CreateSELECTbasedonthecurrentrowClick end object GetRightsfromOwnEmail1: TMenuItem Tag = 8 Caption = 'Get Rights from Own_Email' OnClick = CreateSELECTbasedonthecurrentrowClick end end end end